home *** CD-ROM | disk | FTP | other *** search
/ Apple CD-ROM Titles Sampler / Apple CD-ROM Titles Sampler.iso / Demos / NAUTILUS Demo B&W / NAUTILUS Demo B&W.rsrc / BITD_1063 (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1992-02-06  |  5.7 KB  |  180 lines
  1.                                           <0x5b>                                                                >
  2. <0x201f06d4>labelffffd77eLEN-t>
  3. <0x201f06dd>OPENTANNEXT<wWRITEP<
  4. <0x201f06e7><0x201f06e8>WEND[MKD$)3OPEN-*
  5. <0x7e>
  6. INKEY$PRINT<0x53>U6<0x20>-
  7. <0x201f0700>var5daammWYR<0x5b><0x58>-
  8. <0x201f070d>5ONOPEN%%Q<0x7e>Mvar6f40*
  9. <0x201f071b>W=LSET<0x55>ONPUTdRNDRND<0x3b><0x20>/
  10. <0x201f0729>                                          <0x3b>TRND<0x201f0765>LSETGOSUBGETJM|/
  11. <0x201f076e><0x201f076f>GONCDBLONDATAVNEXTTOPENRWRITE/
  12. &H2d78UvON<0x52>NEXTUVNEXTZMKD$ELSEIF^
  13. &Had87UIU*READLOFNEXTUE[^AND
  14. <0x201f079d>labelfffff4b9U*ONONQYTONSINDVALAND
  15. <0x201f07ae><0x201f07af>J<0x45>T<0x55>TGETONMKD$KUUuWAND
  16. 27957W*ON<0x54>GETQNEXTUTCVDOPENELSEIFOR
  17. 9556MKS$<0x55>U*<0x55>LUJOPENjGET`XOR
  18. 1<0xf6,0x01>KVGETRMID$*RSETTSIN3GETjVAL<0xf6,0x01><0xf6,0x01>2CVIUlNEXTU*SGNONFORFNJ=jGETtXOR
  19. 14>JFNVON<0x54>KTONPRINTNEXT%GETU2.01424e-314ONUTOPENTMID$UTMKS$ONNOTELSEIFEQV
  20. <0x201f0832>|MID$FORGOSUBZNEXTUUTONRNDRONMKD$U1<0x60>IMP
  21. 0
  22. FNT<0x53>UMID$VMID$RMKD$ONINPUTONJYON                                                                                                                                                                                                                                                     
  23. 0labelffffed56YTONNEXTUMRMID$JOPENUMKD$UI>IMP
  24. 0<0x201f0899>2NEXT&ONONMID$*RNDONZONFORONRLOFULENIMP
  25. 06CVDON<0x59>UUZ<0x54>CVD[JURUY]*<IMP
  26. <0x201f08c2>8uUFONONMID$<0x201f08ca>UkIiLOCKJMID$B<0x55>/ELSEIFMOD
  27. 1]GETU2RUUJNEXTe*]4MID$YZFORMID$<0x50>MOD
  28.                                                                                     ON<0x59>ONFORONONPUT5PUT"“T•*kZp˜
  29. 2labelfffff9abU&J<0x56>UTLOFFORR<0x55>-S4MID$%IVALMOD
  30. <0x201f094c>MKD$NEXTJNEXTONS*ONINPUT<0x57>+*<0x52>PRINT<0x201f095b><0x54>INPUT<0x55>j<0x48>\
  31. 2<0x201f0964>UU)VU,<0x55>UjP<0x54>ON*RRe*PUT?\
  32. 2<0x201f097b><0x5a>ON<0x56>NEXTURONONGETO*NEXTGETK-GETU%<0x4b>\
  33. 3<0x201f0992>eUQURONGETUUh<0x55>V<0x52>LSET<0x52>jONSGN-ELSEIF<0xa4,0x02>4&H9aaaPUT*PUTUjMKS$ONREADUI)U+4UU<0x56>ELSEIF
  34. <0xa4,0x02>3SQRj                                                                                                                                                                     RONGETVGETS*PRINTPUTT<0x54><0x52>JONSp<0x53,0x02>3iUONLOFU*ON<0x4a>IjFOR<0x54>MKD$GETR*JMID$UPRINTRETURN<0x53,0x02>4varffffb6acONINKEY$T<0x54>U5MID$GETW+R<0x52>UGETSINZONWX<0x53,0x02>3<0x59>SPACE$SINfONOPENJFORtjMKS$MKS$ONK                                                                          LSETOPENQVAL<0x68,0x02>4<0x201f0a79>NFIXCVDINKEY$UQUWGOTO%UVINPUTSGNOPEN%eVNEXT\<0x4f><0x68,0x02>4<0x201f0a92>RND-me*-TMKS$NEXTFORONONMID$*NEXTFIXGETRPUTFu<0x68,0x08>55<0x55>"≤ï좴V§÷™•Zíî⁄™YR≥@˙
  35. 59ON<0x5d>MTXZTNEXTVZOPENZMID$mjIUNON                                                                                                                                <0xc6f6d860,0x02><0x201f0b14>[We2OPENg%86ONNEXTITONSIN"ï,™°J´[¿˙
  36. 5-i8<0x55>TEXPONNEXTUUSINRMID$J<0x5a><0x4a><0x53>I]jSGNON<0x60><0xd0,0x02>5IMPPUTTHENUVREADONGOSUBONONJOPENZNEXT%%)5"ïV™p˙
  37. 5SINT*ONNEXTRONiUUjPRINTLOFMKD$ONSINGOSUBMID$PUTjNEXTUSTR$<0xd0,0x01>51883<0x55>UVONMID$FORONONGETRINPUTYTRGETVONX<0xd0,0x02>6var7d54ZONONNEXTZVONON=ON<0x49>JNEXTU%+INPUTjON<0x55>PRINT<0xd0,0x02>6<0x201f0bb5>MKD$<0x3b>MID$U<0x52>U%SUU*JmONGETRINPUTMKS$MID$UU*<0x5e><0xd0,0x02>6<0x201f0bd0>YMID$ZON-ONINPUTNEXTRONGETOPEN$UJON                                                                                                                                                     *ON<0x5a>g<0x54,0x02>455978PUT<0x52>J<0x52>PUTZNEXTTT<0x5b>UjU8QUGETUvar67ab<0x54,0x05>72zJPUTRUjMUJPUTKOPEN%ONGETUUNONjONIFSINABS<0x7c>
  38. 7-7.01434e-26U+2ONSINRSGNON<0x5a>UURONRNDNEXT                                                                                      INTABS<0x7c>
  39. 7*<0x5a>SPACE$SINUONNEXTNEXTUJONGOSUBU%TONONJINPUTPRINTONONOPENd<0x60><0x7c>
  40. 7ONUQU*GETPRINTMID$$ONGETSUSINKUUj<0x45>RONOPENTWRITEEXP<0x7d>
  41. 8
  42. =<0x55>^<0x55>SINjRSETZINPUTNEXTjPUTTRMKS$ONONGET8GOSUB                                                                                      ELSEIF<0x60><0x7c>
  43. 7<0x56>ZMID$TONGETJON<0x4a>PUT%Q[MWQJONMKI$RONPUTS?p<0x7c>
  44. 7kPUTZOPENUjONNEXTjGETSGNPUTDRNDMKS$PUTuUTONONMID$l<0x49>p<0x7d>
  45. <0x201f0d4e>varffffb4d6<0x55>Z<0x7e>ON<0x201f0d56>SPACE$GETeRLOFSINJVFIXCVD<0x7e>ON<0x201f0d63>MID$ZGOSUBSPACE$STR$<0x7d>
  46. <0x5b>iU<0x7e>ON1ONCOSTINPUTPUTZONSINRUjMID$UUZON<0x52>ONPRINT<0x7d>
  47. <0x201f0d88>varffffad56ONSINuUUjOPENe%<0x7e>U<0x201f0d97>KTGETZGET*ONMID$+U\<0x7d>
  48. 8<0x201f0da6>vOPENUVGOSUBSPACE$ONONTINPUTGET*ONONSINVON                                                                                                                                                                     UZ<0x59>PUTREAD<0x7d>
  49. 8SINPUTYiSUUV<0x49>j<0x55>UUTNEXTRONOPENZONMID$fj<0x55><0x7d>
  50. <0x201f0e06><0x201f0e07>kJ<0x56>MKD$OPEN\ONONNEXT5GET*ON<0x201f0e15>ONONGETUURMID$UZINTU^<0x7d>
  51. &H6aaIMPRSINUCZONGOSUB<0x4a>jMID$<0x7e>                                                                                    
  52.                                           <0x7e>ONlabelffffe5aaOPEN<0x7d>
  53. 9+<0x5b>4]UjVALON<0x55>i5ONSINjONLSETOPENU$<0x55>UUK9V<0x57>ABS<0x7e>
  54. 9<0x201f0ec9>j=MID$ONSPACE$<0x4a><0x55>*ONFORGETVGETUVMKS$LSETINT*ONONSINeOPEN3@<0x7e>
  55. 1.PUT5ZZINPUTONZ<0x55>U<0x4b>jFIX<0x56>ON)VONTO<0x7f>U<0x201f0efc>UTON<0x59><0x5d>ABS<0x7e>
  56. 94U<0x5a><0x55>OPENeke5Ti*<0x5a>YQPUTUU*ONONOPENVINTnONELSEIF<0x7e>
  57. 9ZIMPOZPRINTPUT-5<0x55>W-ONKFREADMID$RONNEXTUUTONUSINGUWELSEIF<0x7e>
  58. 9-<0x201f0f43>qMSVGET<0x55>*NEXT                                                                                                                               <0x7f>NEXTRONNEXTVCVDGETOPENU;ON<0x58><0x60><0x7e>
  59. <0x201f0f92>SPACE$-]kPUTij*PUTUVPUT<0x7f><0x7f>MODPUTJGOTO*uVUONAREAOPEN/P
  60. <0x201f0faf>
  61.  
  62. [MID$JSGN<0x54>PUTOPENSINRPUTS_<0x7e><0x7f><0x201f0fc0>TONMKS$NEXTFIXNEXTONON<0x3b>]<<0x20><0x7e>
  63. <0x201f0fcf>jTANIMPK;TMKS$<0x55>mRPRINTWRITE<0x7e><0x7f>8=PUTWVMTONUUe4<0xa7,0x02>
  64. var7557<0x201f0ff0>EQV<0x4a>OPENW*GETPUTk<0x7d><0x7f><0x201f0ffb><0x7d>RMKS$ONRNDOPENkTANPUTSINREMp˛
  65. <0x201f100a>READ<0x59>>6iUYMID$jGETW<0x7d><0x7f>2<0x7e>PUTVR<0x4d>TMKS$<0x4a><0x56>GOSUBRNDSGN
  66.  
  67. var0021                                                                                             >.<0x201f1054>ONMKD$TANPUTjREM¸ˇ
  68. •i≠2´VURZ›ÿ˛
  69. e<0x3b>RSETLSETLET<0x52>ONSINJRNDPUT<0x201f1076><0x7f>'OPEN<0x7f><0x7f><0x55>*MID$FORPUTYONPUT<0x55>Vh
  70.  
  71. <0x201f1089><0x55>]{c+UFIXOPENMU<0x7f><0x7d>5$6<0x7f>MOD<0x55>:UTREADPUTSPACE$okVAL
  72.  
  73. labelffffaed5MID$WEND<0x5c>ONmUu[<0x5f><0x7e><0x49>OPENk<0x7f><0x6c,0x02><0x45>VOPEN                                                                                                                                                                                                                     RIGHT$SINl
  74.  
  75. j<0x5a>LOFeUONTANGET'<0x7f><0x50>wP
  76. FORWRITE<0x7e>ONURGETMU+^READTAN
  77.  
  78. <0x201f1116><0x5d>SQRo]ZSINUJ<0x55><0x5f><0x7f>MKD$
  79.  
  80. <0x201f1125>_<0x7e>OPENiONONSPACE$*-ON<0x5b><0x55>
  81.  
  82. <0x5a>NEXTSPACE$PUTGETVONVn<0x7e>P
  83.  
  84. var4bffNEXT3UURFNUWjVAL
  85.  
  86. <0x201f1152>SQR[v<0x55><0x56><0x56>RND<0x55>ONINT<0x7d>
  87. DCDBL@'<0x7f>MID$<0x57>ON<0x5a>PUTmn=SIN<0x56>
  88.  
  89. <0x201f1170><0x5d>PUTINPUTSPACE$RUPUTZON<0x7f>EQVABS<0x7e>
  90. <0x7f><0x5a>X~UJSPACE$SPACE$RSET=<0x5e><0x3b>
  91.  
  92. <0x201f118f>v=-<0x5b>WRITEZVMID$u                0 0<0x201f11d5><0x201f11d6>TOGMID$kUOPENLEN<0x56>OPEN\
  93.  
  94. 6ONWENDVPRINT<0x49>kj[4<0x7f>ELSEIF<0x201f11ef>ABS<0x201f11f1>
  95.  
  96. <0x201f11f4><0xe8,0x08>VMID$ON<0x5a>=SINuNOT
  97.  
  98. <0x201f1201><0x7f>WTAN<0x56>SPACE$FORSINON<0x56><0x7f><0x58>ABS<0x201f120e>
  99. <0x201f1210>var3ff5GNEXTZ[mWZPUT]
  100.  
  101. 4U'-k[kVSIN[<0x7f>
  102. <0x201f122b>
  103. @@ABSEOF<0x7d>XGETPUT-VSTRING$<0x57><0x57>~w@
  104. 187<0x201f1240>OPENTAN-WENDON<0x4a>MKI$<0x7e>@
  105. P
  106.  
  107.  /<0x7d>V<0x56>VUSIN<0x4e>SINz<0x5f>
  108.  
  109. -nPUT<0x5d>WTON<0x5b>m<0x5b><0x7e>"B
  110. <0x201f126a>NEXTYOPENZ<0x5a>u]PUTuABS
  111. 6\MOD--SQRVPUT6W<0x7d>
  112.  
  113. label0100B#<0x7e>MKD$PUTiPUToSPACE$=SQRREM@
  114. <0x201f1298>ZPUT[v<0x5b><0xe8,0x02><0x55>WRITEEQVB
  115. <0x201f12a9><0x7f>ZMKI$SPACE$MODNEXT[]<0x5a>IMP
  116.  
  117. /WRITE\                                                                                                                                                                                          PRINTDATAPUTZLET<0x40,0x02>@1
  118.  
  119. Y[<0x201f1303>v=READREM_Ä
  120. 9=LEN{<0x4d>*IMPwko^@<0x201f1317>
  121.  
  122. <0x201f131a>@A<0x7f>]n<0x55>-INT-XORIMPOPEN<0x20>
  123. ]WEND\PUT{S[INKEY$                                                                                                                                                                                                                <0x7e>
  124. 8<0x201f1365>@label007fMID$MID$m6-MODPUT]<0x7d>ABS
  125. 6<0x57>Z\PUTWHILEnSIN<0x201f137e>USING0<0x201f1381>$@<0x201f1384> "ª⁄ªV”Võfl∂Æ¿
  126. ]{/TANMOD-SPACE$<0x55><0x5b>WRITE<0x50>label4000ABS<0x7e>var7808<0x201f13a6>=ON<0x3b>mu*uo\ELSEIF
  127. GOTO<0x4e>TAN<0x5f>WENDSQRW<0x3b>m<0x201f13bb>CLNG<0x201f13bd>@<0x201f13bf>WHILE
  128.  ?-<0x55>PUT<0x3b>WHILE<0x5e>IMP[P
  129. ={/=<0x5b><0x5a><0xbd,0x02>SPACE$<0x7f><0x48>
  130. (var3fd6n<0x56><0x55>GET-kREM˝¿
  131. GOTO<0x5d>ZWRITE*-PUTWHILE<0x7f>@"
  132. T
  133. <0x60>label042f<0xbd,0x04>k^<0x7f>wWEND<0xbd,0x02><0x50>
  134. =o<0x7d>=SQR~<0x56><0x53>j<0x201f1415>ATN
  135. @<0x20>
  136. Q
  137. <0x20>                                                                                                                                                                                                                                         ]SINSINMID$TAN*REMı¿
  138. REM∫Øøz´{ÌΩˇ @
  139. MODMKD$TAN*<0x5f><0x5f>SQR<0x3d,0x02><0x60>
  140. ;/<0x55><REM˝Óæ◊ˇ@
  141.  
  142. 3@label1ffb                                                                                       uj<0x5d,0x02><0x5d,0x01>
  143. PUTTAN<0x7e><0x7d><0x5d,0x02>[<z<0x7e>ABSlabel4200
  144. }}TO<0x5d,0x05>WRITE]<0x5d,0x01>@
  145. ?/<0x3b>W_IMP<0x7d>_REMˇ
  146.  
  147. <0x201f14f3>
  148.  
  149. <0x201f14f6>MKI$~REMµ’iÔo’‡
  150. SPACE$<0x7d>/<0x7d>-^REMı€˝*H
  151.  
  152. var4000<0x201f1518><0x5d,0x08>OPEN<0x5d,0x01>                                                                                                                                                                                     <0x201f1552>P
  153. ?o}WSQR\IMP^<0x7d><0x7e>ABS
  154. <0x201f1561>
  155.  
  156. O<0x7d>v<0x7d>_<0x5b>U<0x5d><0x7f><0x55>ELSEIF
  157. 7<0x3b>SQR<0x7d><0x7e><0x5a>REM˜V˛"H
  158.  
  159. var1110255REMW͡ˇv’‡
  160. WEND//vSQR/<0x75,0x03><0x7f><0x7d>P<0x7c>
  161. 132@+IMP<0x75,0x03>WRITEjOPENWRITE<0x7f><0x3b><0x50>
  162. SPACE$<0x7d><0x201f15af>z<0x5f><0x5a>WENDW<0x5d>k<0x7e><0x201f15b8>var10fd
  163. 7label0ffePUT_<<0x7f><0x7e>                                                                                                                                                                                                                             `
  164. ?SQRWRITE<0xa9,0x02>/<0x7d>/WRITE<0x7f> MKS$<0x7e>
  165. <0x201f1602>var2010GOTO<0xa9,0x04>=WHILEREMø˛Ô¿
  166. OPEN<0x7d><0x5b>o<zSQRz-<0x7d>
  167.  
  168. P<0x7e>
  169. 8ATN@K<0x7e>PUT<0x201f1627><<0x5b><0xa9,0x02>OPENSIN`
  170. >REMÔ˙›∑›◊øˇI˝
  171. 5<0x7f>ON<0x7f>}oWHILE<0x7f><0x50>
  172. <0x3b>IMPzWRITE<0x7f><0x5d><0x201f1653><0x201f1654>\
  173.  <0x201f165a><0x7e>
  174. 9ABSCOMMON/<0x7e>PUT<0x201f1663>PUT<0x57>IMP//<0x3b>`
  175. .<0x7f>WRITE<0x56>SPACE$\<0x55><0x5a>WEND<0x7e><0x201f1676>CDBL<0x201f1678><0x7e>
  176. 9@ 251\<0x55>v<0x7f>_SINSPACE$-<0x50>
  177. WRITE[-<0x7d><0x5d><0x5e><0x7f><0x7f><0x57><0x7d>D
  178. ABS<0x7e>
  179. 8
  180.